home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / abop-block-form.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  276 b   |  11 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 3    # recursion depth
  3. 90    # angle
  4. 10    # thickness as % of length
  5. A
  6. A=B-F+CFC+F-D&F^D-F+&&CFC+F+B>>
  7. B=A&F^CFB^F^D^^-F-D^|F^B|FC^F^A>>
  8. C=|D^|F^B-F+C^F^A&&FA&F^C+F+B^F^D>>
  9. D=|CFB-F+B|FA&F^A&&FB-F+B|FC>>
  10. @
  11.